#!/usr/bin/perl 
@fichiers=("p96.bal","p96.fic","p96.tab","p96.tag");
#preparer la sortie html
open(OUT,">sortie.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">";
print OUT "<p align=\"center\" style=\"color:yellow;\"> Liste des mots contenu dans les 4 fichiers</p>";
print OUT "<center><table bgcolor=\"black\" border=1 style=\"border-color:green;\" >";
print OUT "<tr><td style=\"color:red;\">Listes des mots</td></tr>";
$i=0;
  while ($fichiers[$i])
{
open(FILEIN, $fichiers[$i]);
while (my $ligne=<FILEIN>)
{
      $ligne=~ s/\./ /g;
      $ligne=~ s/,/ /g;
      $ligne=~ s/;/ /g;
      $ligne=~ s/:/ /g;
      $ligne=~ s/\(/ /g;
      $ligne=~ s/\)/ /g;
      $ligne=~ s/-/ /g;
      $ligne=~ s/\// /g;
      $ligne=~ s/!/ /g;
      $ligne=~s/\?/ /g;
      $ligne=~ s/'/\' /g;
      $ligne=~s/</ /g;
      $ligne=~s/>/ /g;
      @liste = split (/ /,$ligne);
      for ($j=0; $j<=$#liste-1;$j++)
      {
	 if ($liste[$j] ne "" )
 	   {
	      $m=1;
	      for ($h=0; $h<=$#liste_new-1;$h++)
	      {
		  if($m==1)
		  {
			if ($liste_new[$h] eq $liste[$j])
			{
			  $m=0;
			}
		  }
	      }
	      if($m==1 && !($liste[$j]=~/[0-9]/))
	      {
		  push(@liste_new, $liste[$j]);
	      }
  	  }
      }
      
 }

close(FILEIN);
$i=$i+1;
}
      @mots = sort @liste_new;
      for ($j=0; $j<=$#mots-1;$j++)
      {
	   print OUT "<tr><td style=\"color:white;\">$mots[$j]</td></tr>";
      }
print OUT "</table></center>";
print OUT "</body></html>";
close(OUT);
